#light

open System


type TestT() =
    inherit MarshalByRefObject()
    member x.SimpleCallback(callback) =
        printfn "[TestT.SimpleCallback] current domain:%s" AppDomain.CurrentDomain.FriendlyName
        callback(AppDomain.CurrentDomain.FriendlyName)
    member x.IChannelCallback(callback:AsyncReplyChannel<string>) =
        printfn "[TestT.IChannel] current domain:%s" AppDomain.CurrentDomain.FriendlyName
        callback.Reply(AppDomain.CurrentDomain.FriendlyName)